Private Function WinVer(As String) ' Creates a function, Add WinVer as string
Dim VerSplit() As String
Dim reg As Object ' Createds reg as an object
Set reg = CreateObject("WScript.Shell") ' Bind reg as a WScript
WinVer = Reg.regread("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName") ' Reg path. Load the reg information into a string
VerSplit() = Split(WinVer,"Microsoft ") ' do not delete the space!!!!
End Function